   1 .HORSE RACE
   2 .BY HOWARD BRECHEISEN
   3 clear ;BC=179;input "# OF PLAYERS?"H
   4 clear ;A=500;for I=1to H;@(I)=A
   5 next I
   9 clear ;BC=18;FC=14
  10 NT=0;&(9)=175
  11 line -12,-44,4;line -12,43,1
  12 CX=-76;CY=30
  13 print "HORSE ODDS
  14 Z=10;for I=1to 4
  15 CY=Z;@(I+8)=rnd (5)+1;@(I+12)=0
  16 print "#",#2,I,#5,@(I+8),":1"
  17 Z=Z-15;next I
  18 CX=-6;CY=30
  19 print "PL  POT BET HR
  20 CX=-6;CY=20;print "#   $   $   #
  21 Z=10
  22 for I=1to H
  23 CX=-5;CY=Z
  24 print #1,I,#5,@(I)
  25 Z=Z-15;next I
  27 gosub 252
  35 NT=3;Z=10
  36 for I=1to H
  37 CY=Z;CX=68;print #1,@(I+12)
  38 if TR(I)goto 44
  39 if JY(I)=1@(I+12)=1
  40 if JX(I)=1@(I+12)=2
  41 if JY(I)=-1@(I+12)=3
  42 if JX(I)=-1@(I+12)=4
  43 goto 37
  44 Z=Z-15;next I
  50 B=0;Z=10
  51 for I=1to H
  52 CY=Z;CX=42;print #1,B
  53 if TR(I)goto 57
  54 if JY(I)=1B=B+5;goto 52
  55 if JY(I)=-1B=B-5;goto 52
  56 goto 52
  57 @(I+4)=B;B=0;@(I)=@(I)-@(I+4)
  58 Z=Z-15;next I
  69 gosub 252
  70 clear 
  71 &(9)=42
  72 BC=89;FC=6
  73 box 0,0,158,72,3;box 0,0,155,70,3
  74 line 60,34,4;line 60,-35,3
  75 line 59,-17,4;line -77,-17,3
  76 line -77,1,4;line 59,1,3;line 59,18,4;line -77,18,3
  77 NT=0;CX=40;CY=40
  78 print "FINISH
  79 NT=3
 107 Z=25;D=-50;E=-50;F=-50;G=-50;J=1;K=2;L=4
 108 for I=1to 4
 109 CX=-70;CY=Z
 110 print "#",#1,I;gosub 490+I
 112 Z=Z-17;next I
 113 if D>53if D>Eif D>Fif D>G P=1;Q=@(9);goto 150
 114 if E>53if E>Dif E>Fif E>G P=2;Q=@(10);goto 151
 115 if F>53if F>Dif F>Eif F>G P=3;Q=@(11);goto 152
 116 if G>53if G>Dif G>Eif G>F P=4;Q=@(12);goto 153
 118 J=2
 119 for I=1to 4
 120 gosub 490+I
 122 next I
 130 J=1
 131 D=D+rnd (14)+(6-@(9))
 132 E=E+rnd (14)+(6-@(10))
 133 F=F+rnd (14)+(6-@(11))
 134 G=G+rnd (14)+(6-@(12))
 135 Z=25;goto 108
 150 CX=-20;CY=25;print "WINNER";goto 160
 151 CX=-20;CY=9;print "WINNER";goto 160
 152 CX=-20;CY=-10;print "WINNER";goto 160
 153 CX=-20;CY=-29;print "WINNER";goto 160
 160 if @(13)=Pgosub 201
 161 if @(14)=Pgosub 202
 162 if @(15)=Pgosub 203
 163 if @(16)=Pgosub 204
 164 NT=3;gosub 252
 165 goto 9
 201 @(1)=@(1)+@(5)+(@(5)mul Q);return 
 202 @(2)=@(2)+@(6)+(@(6)mul Q);return 
 203 @(3)=@(3)+@(7)+(@(7)mul Q);return 
 204 @(4)=@(4)+@(8)+(@(8)mul Q);return 
 252 for A=1to 1000;next A
 253 return 
 491 X=D;Y=25;goto 500
 492 X=E;Y=9;goto 500
 493 X=F;Y=-10;goto 500
 494 X=G;Y=-29;goto 500
 500 box X,Y,6,4,J
 501 line X+5,Y+3,L
 502 box X+6,Y+4,3,2,J
 503 box X+6,Y+4,1,1,K
 504 line X-6,Y-4,J
 505 line X-7,Y+1,L
 506 line X-4,Y+1,J
 507 line X+5,Y-4,J;return
>:return ;run 
